C*****SLRLEV  SETS LEVEL OF SLUR ENDS WHEN STEMS OPPOSITE.

	SUBROUTINE SLRLEV(RA,RB,NN,C,P6)
C RA=LEFT LEVEL OF SLUR, RB=RIGHT LEVEL, NN=NEG='DIP' UP
	COMMON /STF/RSTFAC(8),RSTJ2
	X=RA-RB
	IF(X.EQ.0)RETURN
	C=-7.
C  C=NEG MAKES P8 INTO A -1.
	IF(NN.GE.0)GO TO 1
	IF(X.GT.0)GO TO 2
	RA=RA+7
	IF(X.GT.-7.)RA=RB
	RETURN
2	RB=RB+7
	IF(X.LT.7)RB=RA
	RETURN
1	IF(X.LT.0)GO TO 3
	RA=RA-7
	IF(X.LT.7)RA=RB
	GO TO 4
3	RB=RB-7
	IF(X.GT.-7.)RB=RA
4	P6=P6-2.3*RSTJ2
C WHEN DIP IS DOWN, SHIFT RIGHT SIDE OF SLUR TO LEFT TO AVOID HITTING STEM.
	END